﻿Friend Class Auto
  Dim m_marca As String = ""
  Dim m_modello As String = ""
  Dim m_cilindrata As Integer = 0
  Dim m_targa As String = ""
  Public Sub New(ByVal targa As String)
    m_targa = targa
  End Sub
  Public ReadOnly Property Targa() As String
    Get
      Return m_targa
    End Get
  End Property
  Public Property Marca() As String
    Get
      Return m_marca
    End Get
    Set(ByVal value As String)
      m_marca = value
    End Set
  End Property
  Public Property Modello() As String
    Get
      Return m_modello
    End Get
    Set(ByVal value As String)
      m_modello = value
    End Set
  End Property
  Public Property Cilindrata() As Integer
    Get
      Return m_cilindrata
    End Get
    Set(ByVal value As Integer)
      m_cilindrata = value
    End Set
  End Property
End Class
